home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 252 / dskpcsrc / appointm.def next >
Text File  |  1988-02-13  |  2KB  |  64 lines
  1. DEFINITION MODULE AppointmentBook;
  2.  
  3.    (* This module defines procedures used for manipulating the *)
  4.    (* Appointment Book accessory.                              *)
  5.  
  6.  
  7.    PROCEDURE Initialize ();
  8.  
  9.       (* Initialize the AppointmentBook module. *)
  10.  
  11.  
  12.    PROCEDURE OwnsWindow ( WindowId : INTEGER ) : BOOLEAN;
  13.  
  14.       (* Return TRUE if the Appointment Book owns the window *)
  15.       (* specified by "WindowId", or FALSE otherwise.        *)
  16.  
  17.  
  18.    PROCEDURE Open ( UseCurrentDate : BOOLEAN;
  19.                     NewDate        : CARDINAL );
  20.  
  21.       (* Open the Appointment Book.  If the Appointment Book is      *)
  22.       (* already opened, then top the Appointment Book window.       *)
  23.       (* If "UseCurrentDate" is true, the current day's appointment  *)
  24.       (* schedule will be displayed.  Otherwise, if "UseCurrentDate" *)
  25.       (* is false, "NewDate" contains the desired date formatted     *)
  26.       (* according to the standard Atari system convention.          *)
  27.  
  28.  
  29.    PROCEDURE Close;
  30.  
  31.       (* Close the Appointment Book window. *)
  32.  
  33.  
  34.    PROCEDURE ProcessMessageEvent ( VAR MsgBuffer : ARRAY OF INTEGER );
  35.  
  36.       (* Process a message event not relating to a menu. *)
  37.  
  38.  
  39.    PROCEDURE ProcessButtonEvent ( MouseButton : INTEGER;
  40.                                   ModifierKey : INTEGER;
  41.                                   Clicks      : INTEGER );
  42.  
  43.       (* Process a mouse button event. *)
  44.  
  45.  
  46.    PROCEDURE ProcessKeyboardEvent ( Key         : INTEGER;
  47.                                     ModifierKey : INTEGER );
  48.  
  49.       (* Process a keyboard event. *)
  50.  
  51.  
  52.    TYPE CalenderType  = ARRAY [1..31] OF BOOLEAN;
  53.  
  54.    PROCEDURE DatesWithAppts (
  55.       Month         : CARDINAL;
  56.       Year          : CARDINAL;
  57.       VAR DateArray : CalenderType );
  58.  
  59.       (* Find the dates with appointments for the current month. *)
  60.  
  61.  
  62. END AppointmentBook.
  63.  
  64.